Top 10k strings from Video Basic - Issue 16 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 A$="PON EN MARCHA LA GRABADORA":
6 "4";"ESTA BIEN ESCRITO ? (S/N)";
6 "23606",z:
6 "10",z;" PARA LA GRABADORA ":
5 t$=" PULSA UNA TECLA PARA CONTINUAR "
5 U;" ";N$;" "
5 "9",N;" ~|";
5 "8",N;A$(N-2
5 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
5 "10",N;" \]"
5 PASO A LA PARTE";
5 *
4 b$=" ":
4 "6";" SIGUIENTE"
4 "126-XL/2",
4 "10-a/2",U;
4 VUELTA AL PRINCIPIO";
3 t$(2)-48":
3 T$=" ELIGE, "+n$+":":
3 LETREROS ENTRANTES
3
2 t$=" ":
2 t$(3)-48":
2 r$="GAME OVER":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 p$="Pulsa una tecla":
2 p$="PUNTOS":
2 p$="Has hecho "+
2 Via Indipendenza 88
2 LEE LOS UDG
2 HOMBRECILLO
2 A$(u+u)-48":
2 A$(u)-48":
2 ;"VIDEOBASIC":
2 ;" PON EN MARCHA LA GRABADORA ":
2 ;" PARA LA GRABADORA ":
2 ,XX;" ";
2 "i*32+24":
2 "BIEN, "+N$+"
2 "23617",Z:
2 "23296"+N,
2 "220"-J/A,ER+J/A*.7
2 "165-y*8":
2 "(21-YP)*8-2":
2 SOFTIDEA (Como)
2 * * * *
2 Tel.031-240.959
2 PARA LA GRABADORA
2
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 y(a)=y(a)+
1 y(a),x(a);
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 x(a)=x(a)+2
1 vite2=vite2-1
1 vite1=vite1-1
1 u;"VALOR NO ACEPTABLE - OTRA VEZ":
1 u;"FUNC. DEFINI. POR EL USUARIO:":
1 u;"El interprete ejecuta cada ins-truccion del programa "
1 u;"EXP 3=..."
1 u;"EXACTO !":
1 u;"CI=CAP.INIC ; CF=CAP.FIN ;I=INT ";
1 u;"..he aqui algun ejemplo...",:
1 u;" ? ? ? "
1 u;" PULSA <E> PARA TERMINAR",:
1 t$=" ":
1 t$=" "+
1 t$=" ":
1 t$=" ":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 t$()=t$(u+u
1 punti2=punti2+20
1 punti2=punti1:
1 punti1=punti1+20
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="ZOO ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Uso de las Funciones ":
1 p$="TONADA ":
1 p$="Otono ":
1 p$="Musica con el Spectrum ":
1 p$="Mantenimiento/inconvenientes":
1 p$="La voz del Spectrum ":
1 p$="Jugador N'2 ?":
1 p$="Jugador N'1 ?":
1 p$="Juego de adivinanzas sobre ":
1 p$="Go ":
1 p$="En el proximo numero... ":
1 p$="EXP * LN * DEF FN ":
1 p$="Definibles ":
1 p$="BEEP * ATTR * SCREEN$ ":
1 p$=" Pulsa una tecla":
1 n;" ":
1 l$="NO DEBEMOS EXPONER NUESTRO OR-DENADOR NI SUS PERIFERICOS ALSOL, PARA EVITAR SOBRECALENTA-MIENTOS."
1 l$="ESTA OPERACION ES SENCILLA,CUALQUIERA PUEDE HACERLA: CON-SISTE EN FROTAR EL CABEZAL CONUN ALGODON EMPAPADO DE ALCO-HOL."
1 copy=23760
1 c$/100+u)+.5)"
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 Z,Z;"CADA LENGUAJE SIMBOLICO ESTA DE-BIDAMENTE TRADUCIDO A C/M:",:
1 YY,XX;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 VITE2=VITE2+1
1 VITE1=VITE1+1
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOHARD
1 VIDEOBREAK
1 VIDEOBASIC N.16
1 UDG BREAK
1 U;"X,Y,Z";
1 U;"T=LN(CF/CI)/LN I"
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ!":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;"BIEN, "+N$,,"AHORA PULSA <RUN>....",:
1 U;"--------- COMPILACION ---------":
1 U;"------- INTERPRETACION ---------":
1 U;"(3+7+8)/3=6":
1 U+U,XP;A$;
1 U$(A$)=A$(
1 TRANSFORMAREMOS PRIMERO EL A-NALISIS EN UN DIAGRAMA DE FLU-JO, Y DESPUES A INSTRUCCIONES<BASIC>."
1 TAB.TEST
1 TAB.LENG4
1 TAB.LENG3 e
1 TAB.LENG2
1 TAB.LENG1 [
1 T$="V V V V "
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA, Y LO INTEN-TES DE NUEVO.":
1 T$="PRUEBA A ESCRIBIR LAS INSTRUC-CIONES DE LAS PREGUNTAS QUE TEVAYA HACIENDO. ESTOY SEGURO QUE NO ENCONTRA-RAS GRANDES DIFICULTADES.":
1 T$="ELIGE, "+N$+":":
1 T$="AHORA, "+N$+"":
1 T$=" ELIGE,"+n$+":":
1 T$=" ELIGE, "+N$+":":
1 T$=" ":
1 SOFTIDEA (Como)
1 SIGUIENTE"
1 SE PUEDE ASIGNAR A LA FUNCION<LN> UN ARGUMENTO CERO ? NO
1 SCROLL=23828
1 S$=" ":
1 RUTINA MAQUINA DE ESCRIBIR
1 REGISTRO DEL NOMBRE
1 QUIERES VER DE NUEVO ESTA LEC-CION (S/N) ?L
1 QUE PROVOCA DEMASIADO POLVO ENLOS CIRCUITOS ? CALOR
1 QUE PROGRAMA ES MAS RAPIDO, ELINTERPRETADO O EL COMPILADO ? COMPILADO
1 QUE DEBEMOS COMPROBAR SI UNDISPOSITIVO NO FUNCIONA ? FUSIBLES
1 Q(X)=X^3","DEFINE LA FUNCION <Q>","QUE DEVUELVE EL CUBO DE <X>",""
1 PROGRAMA B
1 PORTADA T
1 PANTALLA
1 P=P-(P>M):
1 P.BREAK
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$=" en el numero 17 ":
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15348-1985
1 M(X,Y)=(X+Y)/2","DEFINE LA FUNCION <M>","QUE DEVUELVE LA MEDIDA","DE LOS ARGUMENTOS <X> E <Y>",""
1 M(A/2,""BASIC"")","IMPRIME EL RESULTADO DE LA","FUNCION <M> PASANDOLE LOS","PARAMETROS <A/2> Y <BASIC>",""
1 M$;M$;" ";;VITE2;;
1 LETRERO ROTATORIOS
1 LENGUAJE4
1 LENGUAJE3
1 LENGUAJE2
1 LENGUAJE1
1 LA FUNCION <EXP> ES MUY PARE-CIDA A LA ELEVACION DE POTEN-CIA (^), PERO UTILIZA COMO BA-SE EL NUMERO <2.718...> INDI-CADO GENERALMENTE CON <e>.% %EL HECHO DE USAR ESTE NUMERONO ES CAUSAL: <e> SE OBTIENEDE UN PARTICULAR DESARROLLO ENSERIE, Y SE UTILIZA EN MUCHOSCALCULOS MATEMATICOS, COMO<PI> Y OTRAS CONSTANTES SIMI-LARES. <EXP> RESTITUYE EL NUMERO QUESE OBTIENE ELEVANDO <e>, A LAPOTENCIA INDICADA COMO ARGU-MENTO.& &EXP 3 = 2.718...^3# #<LN> (LOGARITMO NATURAL O NE-PERIANO) ES LA FUNCION COMPLE-MENTARIA DE <EXP>.% %DEVUELVE EL LOGARITMO DEL AR-GUMENTO, ES DECIR, LA POTENCIAA LA CUAL HABREMOS DEBIDO ELE-VAR <e> PARA OBTENER EL PROPIOARGUMENTO. POR TANTO, SI& &A=EXP X& &X ES EL LOGARITMO DE A, O BIEN& &LN A=X% %LOS LOGARITMOS CON BASES DIS-TINTAS DE <e> SE OBTIENEN DEESTA FORMA:& &LO
1 L$="Y YA POR ULTIMO... HAY QUE E-VITAR EL CONTACTO CON LIQUI-DOS. LA UNICA SOLUCION EN ESTECASO SERA APAGAR INMEDIATAMEN-TE Y ESPERAR A QUE SE HAYA SE-CADO."
1 L$="TU SPECTRUM ESTA EXPUESTO ADETERIORARSE CON EL PASO DELTIEMPO; UN BUEN MANTENIMIENTOTE ASEGURARA EN CAMBIO UN CO-RRECTO FUNCIONAMIENTO."
1 L$="QUIERES VER DE NUEVO ESTA LEC-CION (S/N) ?":
1 L$="POR TANTO ES INUTIL APRETARDEMASIADO UNA TECLA , SOLO A-CARREA UNA AVERIA PREMATURA."
1 L$="LOS PERIFERICOS TAMBIEN NECE-SITAN UN MANTENIMIENTO ADECUA-DO. HE AQUI UNA SERIE DE NOR-MAS A SEGUIR PARA QUE EL SIS-TEMA NO SE DETERIORE:"
1 L$="LA ROTURA DE UN CABLE PUEDESER DEFINITIVA E IRREPARABLE."
1 L$="LA GRABADORA NECESITA DE UNCUIDADO ESPECIAL: EL CABEZALDEBE SER LIMPIADO PERIODICA-MENTE (POR LO MENOS CADA TRESMESES),"
1 L$="HAY QUE TENER CUIDADO CON LOSGOLPES PUES SUELEN PROVOCARQUE SE AFLOJEN LOS TORNILLOS OPERNIOS DE SOSTEN, SOBRE TODOEN LAS IMPRESORAS."
1 L$="HAY QUE TENER MUCHO CUIDADOCON LOS CABLES Y ENCHUFES MA-NIPULANDOLOS LO MENOS POSIBLE,PROCURANDO NO TIRAR DE ELLOS."
1 L$="FRECUENTEMENTE LA AVERIA SEPRODUCE CERCA DEL ENCHUFE: SIESTA MEDIO QUEMADO ES NECESA-RIO SUSTITUIRLO; Y QUE OCURRESI ES UN JOYSTICK ?!?!?"
1 L$="ES CONVENIENTE PROTEGERLO DELPOLVO, PARA ASEGURAR UNA CO-RRECTA DISIPACION DEL CALOR DELOS COMPONENTES ELECTRONICOS."
1 L$="EN LO QUE SE REFIERE AL TECLA-DO ES NECESARIO SABER QUE ELORDENADOR NO DISTINGUE EL GRA-DO DE PRESION QUE SOPORTA LATECLA, SINO SOLAMENTE SI HASIDO PULSADA.":
1 L$="BIEN; "+N$+"":
1 JUEGO
1 INVERTIDO CON INTERES (I)
1 INSTRUCCION PARA LA DEFINICIONDE NUEVAS FUNCIONES DEF FN
1 INGELEK JAKSON
1 HE AQUI LOS <UTENSILIOS> QUETE PERMITIRAN LOS MEJORES RE-SULTADOS CON EL MINIMO ESFUER-ZO, ORIENTADOS A UNA UTILIZA-CION ESPECIFICA. % %LA TRANSFORMACION DE LENGUAJEDE ALTO NIVEL A LENGUAJEMAQUINA, PUEDE SER EFECTUADADE DOS FORMAS: CON EL INTER-PRETE O CON EL COMPILADOR.% %HE AQUI LAS DIFERENCIAS: EL INTERPRETE LEE LAS INSTRUC-CIONES DEL PROGRAMA UNA A UNA,TAL COMO APARECEN EN EL LISTA-DO; LAS DECODIFICA, ANALIZA, YTRANSFORMA EN OTRAS INSTRUC-CIONES ADAPTADAS AL SISTEMAOPERATIVO, EJECUTANDOLAS INME-DIATAMENTE. SU EMPLEO ES MUY PRACTICO YFLEXIBLE, HASTA EL PUNTO DE A-CEPTAR INDIFERENTEMENTE INS-TRUCCIONES EN MODO DIRECTO OESCRITAS EN FORMA DE PROGRAMA;PERO LA EJECUCION RESULTALENTA.% %EL COMPILADOR EN CAMBIO LEE ELPROGRAMA SIN EJECUTARLO, LODECOFIFICA, CONTROLA Y TRADUCEDE UNA SOLA VEZ, DEL LENGUAJEADAPTADO AL SISTEMA OPERATIVO.AL FINAL DE LA COMPILACION SETENDRAN DOS VERSIONES DEL PRO-GR
1 HASTA QUE EL CAPITAL (CI)
1 HASTA AHORA HEMOS CONSIDERADOEL BASIC COMO ALGO IMPRESCIN-DIBLE PARA EL SPECTRUM, CASIIDENTIFICANDOLO CON EL; ENREALIDAD NO ES ASI.% %EN LINEAS GENERALES, UN ORDE-NADOR ESTA COMPUESTO DE DOSPARTES DIFERENTES: EL HARDWAREY EL SISTEMA OPERATIVO. CON LALLEGADA DE LOS ORDENADORES DO-MESTICOS Y PERSONALES SE HAESTABLECIDO LA COSTUMBRE DEDOTAR A ESTAS MARAVILLOSAS MA-QUINAS CON OTRO SOPORTE QUEPERMITA UN DIALOGO SENCILLO EINMEDIATO CON ELLAS: EN NUES-TRO CASO, EL INTERPRETE BASIC.QUIZAS EL HECHO DE SEPARAR ELSISTEMA OPERATIVO Y EL LENGUA-JE PUEDE PARECERTE INUTIL; PE-RO CUANDO CONTINUEMOS CON LAEXPLICACION, ESTO RESULTARAOBVIO Y NATURAL.% % EL SISTEMA OPERATIVO ES EL SO-PORTE SOFTWARE QUE TIENE LAMISION DE GESTIONAR DE MANERADIRECTA LOS RECURSOS DEL MI-CROPROCESADOR, ESPECIALMENTERESPECTO A LAS OPERACIONES DEE/S. A EL SE LE SOLICITAN TO-DAS LAS OPERACIONES BASICAS:IMPRESION, GRABACION Y CARGA,GRAFICOS, MANEJO DE ERRORES,CO
1 HAS ESCRITO UN PROGRAMA DE TI-PO FINANCIERO HACIENDO USO DEUNA FUNCION NO PRESENTE EN EL<SPECTUM>, PERO DEFINIDA A TUMEDIDA."
1 FUNCION NUMERICA QUE EJECUTALA OPERACION "e^x" EXP
1 FFFFFFFFFFFDDDDDDDDFFFFFFFFFFFFFDDDFFFFFFFGGGGGGGGGGGGGGGFFFFFFFDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 EL BASIC DEL SPECTRUM SE TRA-DUCE POR INTERPRETE ? SI
1 EJERCICIOS
1 DETERMINAR
1 DEBE LIMPIARSE EL CABEZAL DELA GRABADORA CADA TRES MESES? SI
1 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 CUANTO TIEMPO (T) TRANSCURRE
1 CUAL ES EL PERIFERICO CON MASPARTES MECANICAS ? IMPRESORA
1 COMO HAS PODIDO COMPROBAR ELSPECTRUM DISPONE DE UN CONSI-DERABLE NUMERO DE FUNCIONESPREDEFINIDAS: INPUT, IN, SQRETC. ESTO NO IMPIDE, SIN EMBARGO,QUE DE VEZ EN CUANDO NO PUEDASUSAR ALGUNA NO INCLUIDA ENTRELAS DISPONIBLES.% %EL SPECTRUM TE OFRECE LA POSI-BILIDAD DE DEFINIR LAS NUEVASA TU GUSTO, Y SIN LIMITE DECOMPLEJIDAD. LA INSTRUCCIONNECESARIA SE LLAMA <DEFINESFUNCION> (DEF FN) Y PUEDE SERSITUADA EN CUALQUIER PUNTO DELPROGRAMA. VEAMOS UN EJEMPLO QUE TE EX-PLIQUE QUE HACER EN LA PRACTI-CA: EN EL SPECTRUM EXISTE LAFUNCION <INT> QUE DEVUELVE LAPARTE ENTERA DEL NUMERO, PERONO EXISTE NINGUNA DECIMAL. IN-TENTEMOS DEFINIRLA NOSOTROS,LLAMANDOLA POR EJEMPLO <D>.% % DEF FN D(N) = N-INT N& &BIEN, DESDE ESTE MOMENTO <D> HA EN-TRADO A TODOS LOS EFECTOS AFORMAR PARTE DE LA BIBLIOTECADE FUNCIONES, Y PUEDE SER LLA-MADA CADA VEZ QUE SE DESEE ME-DI
1 CI'""CF="";CF'
1 CC-AA,DD-BB,EE:
1 CAR TEST
1 CAR PROG
1 CAR NEXT
1 CAR LIST
1 CAR LENG4
1 CAR LENG3
1 CAR LENG2
1 CAR LENG1
1 CAR HARD
1 CAR GO ,
1 CAR EJER
1 B$="------------"
1 ANTERIOR
1 ALCANZA EL VALOR (CF).",""
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO.
1 ADMITE LA FUNCION SQR NUMEROSNEGATIVOS COMO ARGUMENTO ? NO
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10 A PARTIR DE10."
1 AA,BB,CC,DD,EE:
1 A(T)","04B VUELVE ","#813","2B60
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$=" LENGUAJES":
1 A$=" INTERPRETE/COMPILADOR":
1 A$=" EXP":
1 A$=" EXP - LN - DEF FN - FN":
1 A$=" DEF FN":
1 A$=" LN ":
1 A$)","DEFINE LA FUNCION <U$>","QUE DEVUELVE EL ULTIMO CARAC-","TER DEL ARGUMENTO <A$>",""
1 ;N$;" ? (S/N)"
1 ;N$;" ";VITE1;
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC"
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"SPECTRUM. Hasta pronto,";
1 ;"PREMIO PARA ";N$:
1 ;"PREMIO PARA ";M$:
1 ;"PREGUNTA N. ";w
1 ;"PARA MEJORAR, LEE";
1 ;"OTRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena !"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"INSTRUCCIONES..."''"Y AHORA UN JUEGO PARA DOS CON-TENDIENTES: PARA GANAR DEBES TO-MAR EL MAYOR NUMERO POSIBLE DEPILDORAS ""
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO":
1 ;"Guarda la cinta en su caja";
1 ;"ESTA BIEN ESCRITO, ";
1 ;"ESPERA UN MOMENTO ";n$''" CASI HE TERMINADO !!";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN ESTE NUMERO EL HARDWARE SEOCUPA DEL MANTENIMIENTO DEL OR-DENADOR Y SUS PERIFERICOS";
1 ;"EN EL TECLADO";
1 ;"- - - - - -"''':
1 ;"""5"" PAGINA ANTERIOR ""8"" PAGINA SIGUIENTE"
1 ;"""";i$;""" esta equivocado."
1 ;" SIGUIENTE"
1 ;" PULSA UNA TECLA PARA EMPEZAR";
1 ;" PARA LA GRABADORA "
1 ;" PARA LA GRABADORA ";
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" "
1 5TRADUCCION
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 4 O U T P U T "
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE CALCULO","COMO OBTENDREMOS EL RESULTADO?",""
1 2","ASIGNA A <A> EL VALOR","OBTENIDO ELEVANDO <e>","AL CUADRADO",""
1 2 ELABORACION "
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS QUEINTERVIENEN EN EL PROBLEMA ?",""
1 1+I/100","04<CALCULA ","04=TIEM.<T>","#823","2<40
1 1 I N P U T ","043DEFIN. ","044FN A(N) ","#820","2310
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888E
1 ...................................
1 -J/A,ER+J/A*.7
1 ,XX;" ":
1 ,O;"PARTE SIGUIENTE";
1 ,A;" ";
1 ,A;" ":
1 +punti2)>(punti1+20
1 +punti1)>(punti2+20
1 +(VITE2<10
1 *vite22+punti2):
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***prulsa una tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 **********************************************.*****************************************.************.*************************.*****..***+*********.******.*.************++**************************************************..*****+*********************..*******.+*********************..***********.**********.****......*****************************************.**************************.*******.**************************.**.*******************************************************************************************************************************************************************************************************************************************************,,,,,,,,,******"""**,,,,,,,,,,,,%%%%%%%%%%%"""""""""%%%%%%%%%%%%""""""""""""""""""""""""""""""""'
1 ***********************
1 * TASA DE INTERES (I);
1 * CAPITAL INICIAL (CI);
1 * CAPITAL FINAL (CF).",""
1 ));q$(q,65
1 (y2,x2)-128
1 (y1,x1)-128
1 (punti1+vite11*20
1 (N+.5)","046INT.<CI>","047<CF> <I>","#820","2620
1 ((vite2*15
1 '''''''"VAS A JUGAR ? (
1 "xg+xs/2",yg+ys*
1 "Transformaremos los interesesde porcentual a decimal. Aplicando despues una formulafinanciera adecuada, obtendre-mos el tiempo.",""
1 "RESPUESTA = ";
1 "PRINT FN Z(""B"",C/3,ABS Y)","LOS PARAMETROS PUEDEN SER A-SIGNADOS BAJO LA FORMA DE EX-PRESIONES.",""
1 "PODREMOS RESOLVER PROBLEMASPARA:
1 "OBSERVA LOS MENSAJES E INS-TRUCCIONES DE <INPUT>.",""
1 "OBSERVA ATENTAMENTE LOS MENSA-JES RELATIVOS A <INPUT>.
1 "Los datos necesarios son:
1 "LET C=LN 0","ERROR ! <LN> SOLO ACEPTA ARGU-MENTOS MAYORES QUE <0>.",""
1 "LET A=EXP -1.5","LA FUNCION <EXP> ACEPTA ARGU-MENTOS DECIMALES Y NEGATIVOS.",""
1 "F81","F91LENGUAJE","F:1","F;1","F<1MAQUINA ","F=1",""
1 "El resutado final consiste enla impresion del tiempo redon-deado (o periodos) necesariopara que se verifiquen las pe-ticiones.","",""
1 "EL PROGRAMA DE ESTA LECCION ESFINANCIERO Y SE REFIERE AL TI-PO DE INTERES COMPUESTO.",""
1 "DEF FN X(B)=A+B+C","EN ESTE CASO <A> Y <C>, NO ES-TANDO PRESENTES ENTRE LOS PA-RAMETROS, SERAN OBTENIDOS DES-DE EL PROGRAMA.",""
1 "DEF FN D()=PI*2","INCLUSO CUANDO NO TENEMOS NIN-GUN PARAMETRO, ES OBLIGATORIOEL USO DE PARENTESIS.",""
1 "DEF FN C()=FN A(X)+Y","LAS FUNCIONES DEFINIDAS SONVALIDAS A TODOS LOS EFECTOS, YPUEDEN SER UTILIZADAS A SU VEZPARA GENERAR OTRAS NUEVAS.",""
1 "DEF FN A$(POS,A$)","EL NOMBRE <A$> NO TIENE NADAQUE VER CON EL PARAMETRO <A$>,NI CON LA EVENTUAL <A$> PRE-SENTE EN EL PROGRAMA.",""
1 "AHORA, "+N$+"
1 "AHORA OBSERVEMOS EL USO PRAC-TICO DE LAS NUEVAS INSTRUCCIO-NES QUE ACABAMOS DE VER.",""
1 "AB6CODIGO","AC6","AD6MAQUI.","","IB1SISTE.","IC1","ID1OPERA.",""
1 "A21PASCAL","A36","A46WHILE A=B","A56","A66 BEGIN","A76","A86 WRITE (B)","A96","A:6 END;",""
1 "@<1 RPG","@=4","@>4 SETON 15","@?4","@@412 MOVE A B","@A4","@B401 EXSR REP","@C4","@D4 EXCPT AA",""
1 "935","945 B A S I C","955","","9:3 SISTEMA","9;3","9<3 OPERATIVO","","9A1","9B1 HARDWARE","9C1",""
1 "7";"ESTOY CARGANDO VIDEOTEST":
1 "6";"PULSA";
1 "6",N;" \]"
1 "6",A;"^";
1 "5";"PRINT FN A(3,7,8)"
1 "5";"DEF FN A(";
1 "5";")=(X+Y+Z)/3"
1 "5",N;" ~|";
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "333PRINT","343","353LET","363","373FOR I=","","=35","=45","=55INTERP.","=65","=75","","G31","G41SISTEMA","G51","G61OPERAT.","G71",""
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"El compilador traduce todo elprograma a C/M ...",
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3";"...para ser ejecutado en un se-gundo momento.",,
1 "2>5LENG.","2?5LISP","",";>5TRADUC.",";?5LISP","","2B6LENG.","2C6 ....","",";B6TRADUC.",";C6 ....",""
1 "23617",u:
1 "23617",U:
1 "23295+I",
1 "222LENG.","232BASIC","",";22TRADUC.",";32BASIC","","263LENG.","273PASCAL","",";63TRADUC.",";73PASCAL","","2:4LENG.","2;4FORTH","",";:4TRADUC.",";;4FORTH",""
1 "211BASIC","223","233LET C=4","243","253PRINT X+5","263","273IF A<=B THEN","283","293GOSUB 4000",""
1 "1=3PRINT","1>3","1?3FOR...","","9=5","9>5COMPI.","9?5","","A=6CODIGO","A>6","A?6MAQUI.",""
1 "1;1ASSEMBLER","1<5","1=5LD B,32","1>5","1?5ADD HL,DE","1@5","1A5RRCA","1B5","1C5LDIR",""
1 "19";"----->":
1 "14";t$(j);
1 "14";t$(j):
1 "127-XL/2",
1 "107+j*16",i:
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "04?IMPRIME ","04@PERIODO ","#823","2?50
1 "049CONVERT.","04:1+I/100 ","#823","2930
1 "-i*28+56":
1 ","IMPRIME CON LA ZX-PRINTER","EL LOGARITMO NATURAL","DE <PI>",""
1 ","EL REDONDEO SE OBTIENE A TRA-VES DE UNA FUNCION DEFINIDA.",""
1 "*1 ","% "
1 "". LA PARTIDATERMINA AL AGOTAR LAS TRES VIDASDE CADA JUGADOR."'"Y.. ATENCION!! OBTENDRAS UN PRE-MIO CADA 300 PUNTOS."'''"LAS TELAS SON:"''" 1' JUGADOR W,A,S,Z"'" 2' JUGADOR I,J,K,M"
1 "" CUYO VALOR ES DE 20PUNTOS CADA UNA, EVITANDO CHOCARCONTRA EL MURO ""
1 " - INTERES COMPUESTO - "," CALCULO DEL TIEMPO"
1 " pon en marcha la grabadora ":
1 Tel.031-240.959
1 SOFTIDEA - (Como)
1 REPETIR";
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGAR EL VIDEOJUEGO";
1 CARGA LA";
1 AL BASIC ":
1 1985 by VIDEO BASIC ":
1 ** ** ** ***********************
1 ** ** ** **
1 * * * ***********************
1 Pon en marcha la grabadora
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 *********************** * * *
1 ":
1
1
1
1
1